home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 010a / cliptree.zip / INCLUDE1.H < prev    next >
C/C++ Source or Header  |  1993-02-07  |  2KB  |  48 lines
  1. /*┌──────────────────────────────────────────────────────────────────────┐
  2.  ▌│                                                                      │
  3.  ▌│ Program Name: INCLUDE1.H        Copyright: Gallagher Computing Corp. │
  4.  ▌│ Date Created: 02/06/93           Language: Clipper 5.0               │
  5.  ▌│ Time Created: 17:26:53             Author: Kevin S Gallagher         │
  6.  ▌│ c:/brief/clipper.src                                                 │
  7.  ▌└──────────────────────────────────────────────────────────────────────┘
  8.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀           */
  9.  
  10. #include "achoice.ch"
  11. #include "box.ch"
  12. #include "inkey.ch"
  13. #include "directry.ch"
  14. #include "Fileman.ch"
  15.  
  16.  
  17. #define DIR_NAM  1
  18. #define DIR_PATH 2
  19.  
  20. #define T_BRANCH   CHR(195) + CHR(196)
  21. #define L_BRANCH   CHR(192) + CHR(196)
  22. #define I_BRANCH   CHR(179) + CHR(32)
  23. #define NO_BRANCH  CHR(32)  + CHR(32)
  24.  
  25. #define MR       MAXROW()
  26. #define MC       MAXCOL()
  27. #define MIDRow() ( MR+1 ) / 2
  28. #define MIDCol() ( MC+1 ) / 2
  29.  
  30. #define OkBLOCK { { | e | LEN( e[5] ) == 1 .AND. "D"  $ e[5]    .OR.   ;
  31.                           LEN( e[5] ) == 2 .AND. "HD" $ e[5] },      ;
  32.                   { | e | "." $ SUBSTR(e[1],1,1) }                     ;
  33.                 }
  34.  
  35. #define MsgColor "w+/bg,b/w"
  36.  
  37. #define Panel( lHelp )     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  38.         DISPBOX( 0, 0, MR, MC, '▓▓▓▓▓▓▓▓▓', 'w+/b' ),;
  39.         DEVPOS( MAXROW(), 0 ),;
  40.         IF( lHelp, DEVOUT( PADL( 'F1 - Help', 80 ),"W+/RB"),;
  41.         QQOUT() ), SETCOLOR( cDefCol ) } )
  42.  
  43. #xtranslate  LSTRINT( <f> )  => LTRIM(STR(INT( <f> ) ) )
  44.  
  45. #xcommand DEFAULT <param> TO <value> [, <param2> TO <value2> ] => ;
  46.           IF <param> == NIL ; <param> := <value> ; END ;
  47.           [; IF <param2> == NIL ; <param2> := <value2> ; END ]
  48.